home *** CD-ROM | disk | FTP | other *** search
/ Power Programmierung / Power-Programmierung (Tewi)(1994).iso / magazine / progjour / 1991 / 01 / dialog.asm < prev    next >
Assembly Source File  |  1990-11-01  |  867b  |  57 lines
  1.     title    dialog box routines
  2.     include    asm.inc
  3.  
  4.     public    dialog_error_beta
  5.     public    dialog_strerror_beta
  6.     public    ms_dos_dialog
  7.  
  8.     .code
  9.     extn    ms_dos_strerror,perror,set_strerror
  10.  
  11. ;;    dialog error beta
  12. ;
  13. ;    entry    AX    DGROUP error string
  14. ;    exit    Cf    1
  15. ;    uses    AX
  16. ;
  17. dialog_error_beta proc
  18.     call    set_strerror        ; translate error string
  19.     jmp    dialog_strerror_beta    ;\
  20. dialog_error_beta endp
  21.  
  22.  
  23. ;;    dialog strerror beta
  24. ;
  25. ;    exit    Cf    1
  26. ;    uses    AX
  27. ;
  28. dialog_strerror_beta proc
  29.     push    si
  30.     mov    si,NULL_POINTER
  31.     call    perror
  32.     pop    si
  33.     stc
  34.     ret
  35. dialog_strerror_beta endp
  36.  
  37.  
  38. ;;    ms dos dialog
  39. ;
  40. ;    entry    *    according to dos function
  41. ;    exit    *
  42. ;    uses    *
  43. ;    note    displays dialog box when ms_dos returns an error
  44. ;
  45. ms_dos_dialog proc
  46.     call    ms_dos_strerror
  47.     jnc    mdd1
  48.     push    si
  49.     mov    si,NULL_POINTER
  50.     call    perror
  51.     pop    si
  52.     stc
  53. mdd1:    ret
  54. ms_dos_dialog endp
  55.  
  56.     end
  57.